home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 43 / 043.d81 / old hello (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  1KB  |  51 lines
  1. 0 ifpeek(760)=0thenpoke760,1:print"[147]":load"graphix.o",8,1
  2. 1 ifpeek(760)=1thenpoke760,9:goto 460
  3. 2 ifpeek(760)=2thenpoke760,3:load"tiles.o",8,1
  4. 3 ifpeek(760)=3then1234
  5. 4 ifpeek(760)=7then420
  6. 5 clr:poke52,127:poke56,127:poke 46,110:clr
  7. 6 ifpeek(760)=9thenpoke760,2:goto2
  8. 7 ifpeek(789)>207thenpoke40704,peek(788):poke40705,peek(789)
  9. 8 sys32780:poke53272,23:poke 53280,6:poke53281,6
  10. 9 print"[147]":poke767,0:poke765,2
  11. 10 print"[147]           [197]xpedition [193]mazon"
  12. 14 ifpeek(789)>207thenpoke40704,peek(788):poke40705,peek(789)
  13. 20 print"   [195]opyright 1984 by [208]enguin [211]oftware"
  14. 30 print"     [196]esigned by [215]illard [208]hillips"
  15. 35 print"     [201]llustrations by [199]reg [205]alone"
  16. 40 print"            [208]layer's options"
  17. 50 print"            ****************"
  18. 60 print"       [214][146])iew title illustration"
  19. 70 print"         [210][146])eview instructions"
  20. 80 print"           [211][146])tart the game"
  21. 90 print"            [197][146])xit the game"
  22. 91 a$="[255][255][255][255][255][255][255][255][255][255][255][255][255][255][255][255][255][255][255][255][255][255][255][255][255][255][255][255][255][255][255][255][255][255][255][255][255][255][255][255]"
  23. 92 b$="[255][255][255][255]"
  24. 93 print"[156]"a$a$;:fora=1to20:printb$;:next:printa$a$"";
  25. 100 geta$:ifa$=""then 100
  26. 110 ifa$="r"then200
  27. 120 ifa$="s"then300
  28. 130 ifa$="v"then400
  29. 140 ifa$="e"then500
  30. 150 goto100
  31. 200 load"ins",8
  32. 300 z=rnd(-ti)
  33. 350 load"flint",8
  34. 400 sys32789:poke53280,0:poke53281,0
  35. 410 poke760,7:load"p1",8,1
  36. 420 getay$:ifay$=""then420
  37. 425 poke760,5
  38. 430 sys32780
  39. 440 poke 53280,6:poke53281,6:goto100
  40. 460 sys32789:poke53280,0:poke53281,0
  41. 470 load"p1",8,1
  42. 500 print"[147]          [208]ress a key to play,
  43. 501 [153][163]7)"or turn your computer off."
  44. 502 [161]a$:[139]a$[178]""[167]502
  45. 503 [137]10
  46. 1234 [139][194](759)[178]0[167][151]759,1:[147]"nm",8,1
  47. 1243 [139][194](759)[178]1[167][151]759,2:[147]"loon",8,1
  48. 1254 [139][194](759)[178]2[167][151]759,3:[147]"puns",8,1
  49. 1255 [139][194](759)[178]3[167][151]760,5:[147]"sp.o",8,1
  50. 1265 [137] 4
  51.